home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 27 / PC Gamer IT CD 27.iso / MEDIA / STORE.DXR / Internal_75.ls < prev    next >
Encoding:
Text File  |  1997-12-01  |  2.1 KB  |  60 lines
  1. on enterFrame
  2.   set i to field "type"
  3.   case i of
  4.     "Try Me":
  5.       nothing()
  6.     "Buy Me":
  7.       puppetSprite(22, 1)
  8.       set the member of sprite 22 to "buy3"
  9.   end case
  10.   set the itemDelimiter to "."
  11.   set x to item 1 of field "whichbox"
  12.   set the visible of sprite 29 to 0
  13.   updateStage()
  14.   case x of
  15.     "box1":
  16.       set the member of sprite 29 to member "Box1" of castLib "dbimages"
  17.     "box2":
  18.       set the member of sprite 29 to member "Box2" of castLib "dbimages"
  19.     "box3":
  20.       set the member of sprite 29 to member "Box3" of castLib "dbimages"
  21.     "box4":
  22.       set the member of sprite 29 to member "box4" of castLib "dbimages"
  23.     "box5":
  24.       set the member of sprite 29 to member "box5" of castLib "dbimages"
  25.     "box6":
  26.       set the member of sprite 29 to member "box6" of castLib "dbimages"
  27.     "box7":
  28.       set the member of sprite 29 to member "box7" of castLib "dbimages"
  29.     "box8":
  30.       set the member of sprite 29 to member "box8" of castLib "dbimages"
  31.     "box9":
  32.       set the member of sprite 29 to member "box9" of castLib "dbimages"
  33.     "box10":
  34.       set the member of sprite 29 to member "box10" of castLib "dbimages"
  35.     "box11":
  36.       set the member of sprite 29 to member "box11" of castLib "dbimages"
  37.     "box12":
  38.       set the member of sprite 29 to member "box12" of castLib "dbimages"
  39.     "box13":
  40.       set the member of sprite 29 to member "box13" of castLib "dbimages"
  41.     "box14":
  42.       set the member of sprite 29 to member "box14" of castLib "dbimages"
  43.     "box15":
  44.       set the member of sprite 29 to member "box15" of castLib "dbimages"
  45.     "box16":
  46.       set the member of sprite 29 to member "box16" of castLib "dbimages"
  47.     "box17":
  48.       set the member of sprite 29 to member "box17" of castLib "dbimages"
  49.     "box18":
  50.       set the member of sprite 29 to member "box18" of castLib "dbimages"
  51.     "box19":
  52.       set the member of sprite 29 to member "box19" of castLib "dbimages"
  53.     "box20":
  54.       set the member of sprite 29 to member "box20" of castLib "dbimages"
  55.   end case
  56.   set the visible of sprite 29 to 1
  57.   updateStage()
  58.   set the itemDelimiter to TAB
  59. end
  60.